home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / cryp.zip / CRYPTO.BAS next >
BASIC Source File  |  1988-05-28  |  2KB  |  66 lines
  1. 10 DIM A$(6),B$(6)
  2. 20 DEFINT A-Z
  3. 30 CLS:PRINT"Place file storage disk in Drive B press enter to continue"
  4. 40 INPUT GO$
  5. 50 CLS:INPUT"Is caps lock on? (Y/N)",GO$:IF GO$<>"Y" THEN 50
  6. 60 GOTO 170
  7. 70 LOCATE 1,1:PRINT SPACE$(80):LOCATE 1,1:PRINT"What name to be saved under?"
  8. 80 LOCATE 2,1:PRINT SPACE$(80):LOCATE 2,1:INPUT CRY$
  9. 90 CRY$="b:"+CRY$
  10. 100 OPEN "o",#2,CRY$
  11. 110 FOR III=1 TO 6
  12. 120 PRINT#2,A$(III)
  13. 130 PRINT#2,B$(III)
  14. 140 NEXT III
  15. 150 CLOSE #2
  16. 160 GOTO 370
  17. 170 CLS
  18. 180 LOCATE 1,1:INPUT"Do you have a saved crypto you want to recall? (Y/N)",BRING$:LOCATE 1,1:PRINT SPACE$(80)
  19. 190 IF BRING$<>"Y" THEN 230
  20. 200 LOCATE 1,1:PRINT SPACE$(80):LOCATE 1,1:INPUT "What is the name of the crypto?",CRY$
  21. 210 CRY$="b:"+CRY$
  22. 220 OPEN "i",#2,CRY$
  23. 230 FOR I=1 TO 6
  24. 240 LOCATE 1,1:PRINT "line";I;"of cryptogram";"   Hit <ENTER> if no more lines"
  25. 250 IF BRING$<>"Y" THEN LOCATE 2,1:LINE INPUT"",A$(I)
  26. 260 IF BRING$="Y" THEN LINE INPUT#2,A$(I):LINE INPUT#2,B$(I)
  27. 270 IF BRING$<>"Y"THEN B$(I)=SPACE$(LEN(A$(I)))
  28. 280 IF BRING$="Y" THEN 320
  29. 290 FOR J=1 TO LEN(A$(I))
  30. 300 IF ASC(MID$(A$(I),J,1))<65 OR ASC(MID$(A$(I),J,1))>90 THEN MID$(B$(I),J,1)=MID$(A$(I),J,1)
  31. 310 NEXT J
  32. 320 LOCATE 5+(3*(I-1)),1:PRINT A$(I)
  33. 330 LOCATE 6+(3*(I-1)),1:PRINT B$(I)
  34. 340 LOCATE 2,1:PRINT SPACE$(80)
  35. 350 NEXT I
  36. 360 CLOSE #2
  37. 370 LOCATE 1,1:PRINT "1- change single letter  2- erase all  3- save  4- end"
  38. 380 LOCATE 2,1:PRINT SPACE$(80)
  39. 390 LOCATE 2,1:INPUT"",CHOICE$
  40. 400 IF ASC(CHOICE$)>64 AND ASC(CHOICE$)<91 THEN OL$=CHOICE$:GOTO 560
  41. 410 CHOICE=VAL(CHOICE$)
  42. 420 IF CHOICE=3 THEN GOTO 70
  43. 430 IF CHOICE=4 THEN END
  44. 440 IF CHOICE<>2 THEN 540
  45. 450 FOR I=1 TO 6
  46. 460 B$(I)=SPACE$(LEN(A$(I)))
  47. 470 FOR J=1 TO LEN(A$(I))
  48. 480 IF ASC(MID$(A$(I),J,1))<65 OR ASC(MID$(A$(I),J,1))>90 THEN MID$(B$(I),J,1)=MID$(A$(I),J,1)
  49. 490 NEXT J
  50. 500 LOCATE 6+(3*(I-1)),1:PRINT B$(I)
  51. 510 LOCATE 5+(3*(I-1)),1:PRINT A$(I)
  52. 520 NEXT I
  53. 530 GOTO 370
  54. 540 LOCATE 2,1:PRINT SPACE$(80):LOCATE 2,1
  55. 550 INPUT "letter to be changed  ",OL$
  56. 560 LOCATE 2,40:INPUT"change to  ",NL$
  57. 570 FOR I=1 TO 6
  58. 580 FOR J=1 TO LEN(A$(I))
  59. 590 IF MID$(B$(I),J,1)=NL$ THEN MID$(B$(I),J,1)=" "
  60. 600 IF MID$(A$(I),J,1)=OL$ THEN MID$(B$(I),J,1)=NL$
  61. 610 NEXT J
  62. 620 LOCATE 6+(3*(I-1)),1:PRINT B$(I)
  63. 630 LOCATE 5+(3*(I-1)),1:PRINT A$(I)
  64. 640 NEXT I
  65. 650 GOTO 370
  66.